home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / dos / diverses / cexpress / graphic / boxdown.asm next >
Encoding:
Assembly Source File  |  1989-05-03  |  5.4 KB  |  213 lines
  1. ;void box_down(box,col,row,width,depth);
  2. ;  unsigned char  *box,*col,*row, width,depth;
  3.  
  4.     EXTRN  _memory_model:byte
  5.     EXTRN  _video_buffer:word
  6.     EXTRN  _snow_protect:byte
  7.  
  8. box_seg EQU  [bp-2]
  9. box_ofs EQU  [bp-4]
  10. col_seg EQU  [bp-6]
  11. col_ofs EQU  [bp-8]
  12. row_seg EQU  [bp-10]
  13. row_ofs EQU  [bp-12]        
  14. width    EQU  [bp-14]        
  15. depth   EQU  [bp-16]        
  16. snow    EQU  [bp-18]        
  17. endofbox EQU  [bp-20]    
  18. toppos  EQU  [bp-22]        
  19. rghtpos EQU  [bp-24]        
  20.  
  21. _TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  22.     ASSUME CS:_TEXT
  23.     PUBLIC _box_down
  24. _box_down proc near
  25.     push bp            ;
  26.     mov  bp,sp        ;set stack frame
  27.     sub  sp,24        ;make room to hold parameters
  28.     pushf            ;
  29.     push di            ;
  30.     push si            ;
  31.     cmp  _memory_model,0    ;near or far?
  32.     jle  begin        ;jump if near
  33.     inc  bp            ;else add 2 to BP
  34.     inc  bp            ;
  35. begin:    push ds            ;save Turbo's DS
  36.     mov  dx,_video_buffer    ;grab _video_buffer
  37.     push dx            ;save it
  38.     cmp  _memory_model,2    ;data near or far?
  39.     jb   L0            ;jump if near
  40.     push [bp+6]        ;move parameters to SP offsets
  41.     push [bp+10]
  42.     push [bp+14]
  43.     push [bp+4]
  44.     push [bp+8]
  45.     push [bp+12]
  46.     push [bp+16]
  47.     push [bp+18]
  48.     jmp  short L00
  49. L0:    push ds            ;near case
  50.     push ds
  51.     push ds
  52.     push [bp+4]
  53.     push [bp+6]
  54.     push [bp+8]
  55.     mov  al,[bp+10]
  56.     sub  ah,ah
  57.     push ax
  58.     mov  al,[bp+12]
  59.     push ax
  60. L00:    cmp  _memory_model,0    ;check code model again
  61.     jle  L000        ;jump if near
  62.     dec  bp            ;unadjust BP so all BP offsets same
  63.     dec  bp            ;
  64. L000:    pop  depth        ;set intermediate values
  65.     pop  width
  66.     pop  row_ofs
  67.     pop  col_ofs
  68.     pop  box_ofs
  69.     pop  row_seg
  70.     pop  col_seg
  71.     pop  box_seg
  72.     mov  ax,col_seg        ;ES:DI pts to Col
  73.     mov  es,ax        ;
  74.     mov  di,col_ofs        ;
  75.     mov  al,_snow_protect    ;grab _snow_protect
  76.     mov  snow,al        ;save it
  77.     sub  cx,cx        ;
  78.     mov  cl,es:[di]        ;get column position
  79.     jcxz F1            ;quit if column is zero
  80.     dec  cx            ;count from zero
  81.     cmp  cx,79        ;in range?
  82.     jna  G1            ;jump ahead if so
  83. F1:    jmp  M1            ;else quit
  84. G1:    mov  ax,box_seg        ;segment of Box
  85.     mov  es,ax        ;load in ES
  86.     mov  di,box_ofs        ;offset of Box
  87.     mov  ax,depth        ;depth to AX
  88.     dec  ax            ;dec for test
  89.     cmp  ax,24        ;in range?
  90.     jna  H1            ;jump ahead if so
  91.     jmp  M1            ;else quit routine
  92. H1:    inc  ax            ;readjust
  93.     mov  bx,width        ;width to BX
  94.     dec  bx            ;dec for test
  95.     cmp  bx,79        ;in range?
  96.     jna  I1            ;jump ahead if so
  97.     jmp  M1            ;else quit
  98. I1:    inc  bx            ;readjust
  99.     mul  bl            ;width times depth
  100.     shl  ax,1        ;double for attributes
  101.     add  ax,di        ;offset to end of Box
  102.     mov  endofbox,ax    ;save end of box ptr
  103.     mov  di,ax        ;pt ES:DI to end of Box
  104.     mov  ax,row_seg        ;point DS:SI to Row
  105.     mov  ds,ax        ;
  106.     mov  si,row_ofs        ;
  107.     sub  ax,ax        ;
  108.     mov  al,[si]        ;get row value
  109.     dec  ax            ;count from zero
  110.     cmp  ax,24        ;in range?
  111.     jna  K1            ;jump ahead if so
  112. J1:    jmp  M1            ;else quit
  113. K1:    mov  bx,ax        ;copy in BX
  114.     add  bx,depth        ;add depth
  115.     cmp  bx,24        ;edge of screen?
  116.     ja   J1            ;quit if so
  117.     add  ax,2        ;inc old row value
  118.     mov  [si],al        ;reset row variable
  119.     sub  ax,2        ;back to old value
  120.     mov  bl,160        ;bytes per row
  121.     mul  bl            ;calculate row offset
  122.     shl  cx,1        ;col offset
  123.     add  ax,cx        ;add to row offset
  124.     mov  si,ax        ;SI pts to topleft corner
  125.     mov  toppos,si        ;save it
  126.     mov  ax,dx        ;_video_buffer
  127.     mov  ds,ax        ;move to DS
  128.     mov  ax,depth        ;get depth
  129.     mov  cl,160        ;bytes per row
  130.     mul  cl            ;times depth
  131.     add  si,ax        ;DS:SI pts to topright
  132.     mov  rghtpos,si        ;copy 
  133.     pop  bx            ;_video_buffer
  134.     cld            ;set direction
  135.     mov  cx,width        ;get width
  136.     shl  cx,1        ;double for attributes
  137.     call Writeit        ;write a char
  138.     mov  ax,ds        ;DS to AX
  139.     mov  es,ax        ;now ES pts to screen too
  140.     mov  di,rghtpos        ;new bottom right pos
  141.     mov  si,di        ;copy to SI
  142.     sub  si,160        ;SI one row higher
  143.     mov  ax,depth        ;depth to AX
  144. L1:    mov  cx,width        ;width to CX
  145.     push di            ;save target ptr
  146.     push si            ;save source ptr
  147.     shl  cx,1        ;dbl width for attributes
  148.     call Writeit        ;write a char
  149.     pop  si            ;restore ptr
  150.     pop  di            ;restore ptr
  151.     sub  di,160        ;ptr up one row
  152.     sub  si,160        ;ditto
  153.     dec  ax            ;dec depth counter
  154.     jnz  L1            ;loop till finished
  155.     mov  ax,box_seg        ;segment of Box
  156.     mov  ds,ax        ;move to DS
  157.     mov  si,box_ofs        ;offset of Box
  158.     mov  di,toppos        ;ES:DI pts to topleft
  159.     mov  dx,width        ;width
  160.     shl  dx,1        ;double for attributes
  161.     mov  cx,dx        ;use as counter
  162.     call Writeit        ;write a char
  163.     mov  ax,ds        ;DS pts to Box
  164.     mov  es,ax        ;now ES does too
  165.     mov  di,box_ofs        ;offset to start of Box
  166.     mov  si,di        ;copy to SI
  167.     add  si,dx        ;offset to second row
  168.     mov  ax,depth        ;depth
  169.     mov  cx,width        ;width
  170.     mul  cl            ;size of Box
  171.     mov  cx,ax        ;move to CX as counter
  172.     rep  movsw        ;shift all upwards
  173.     jmp  short N1        ;jump to end
  174. M1:    pop  bx            ;balance stack if error
  175. N1:    sti            ;reenable interrupts
  176.     pop  ds            ;
  177.     pop  si            ;
  178.     pop  di            ;
  179.     popf            ;
  180.     add  sp,24        ;restore stack pointer
  181.     pop  bp            ;
  182.     cmp  _memory_model,0    ;quit
  183.     jle  quit        ;
  184.     db   0CBh        ;RET far
  185. quit:    ret            ;RET near
  186. _box_down endp
  187. Writeit    PROC
  188.     push dx            ;save DX
  189.     push ax            ;save AX
  190.     mov  dx,3dah        ;status byte address
  191.     mov  bx,es        ;get target segment
  192.     mov  ax,ds        ;get source segment
  193.     cmp  ax,bx        ;is source larger?
  194.     jna  A1            ;jump if not
  195.     mov  bx,ax        ;else use source
  196. A1:    cmp  byte ptr snow,0    ;protect against snow?
  197.     je   D1            ;jump ahead if not
  198. B1:    in   al,dx        ;get status byte
  199.     test al,1        ;test bit
  200.     jnz  B1            ;loop till 0
  201.     cli            ;disable interrupts
  202. C1:    in   al,dx        ;get status byte
  203.     test al,1        ;test bit
  204.     jz   C1            ;loop till 1
  205. D1:    movsb            ;move a character
  206.     loop A1            ;go do next
  207.     pop  ax            ;restore AX
  208.     pop  dx            ;restore DX
  209.     ret            ;
  210. Writeit    endp
  211. _TEXT    ENDS
  212.     END
  213.